home *** CD-ROM | disk | FTP | other *** search
- @thread WLOGT1.LOG
- @NewAlias da DASD.GRA
- da LOG $PROMPT="LOGGING WRITE LOGICAL TEST 1"
- da set DEVICENAME=C:
- da DASD_OPEN
- da GET_LOGICAL_PARAMS
- da SET $BUFFER=BETA \
- SECTORSTART=1 \
- HEAD=1 \
- CYLINDER=1 \
- SECTORCOUNT=10
-
- da READ_LOGICAL
- @IMPORT SYSINFO.TXT
- da WRITE_LOGICAL
- da READ_LOGICAL $BUFFER=ALPHA
- da COMPARE BUFFER1=ALPHA BUFFER2=BETA
- da DASD_CLOSE
- @flush da